home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  455 b   |  25 lines

  1. 10 ;RD TRK 5
  2. 40 PROG LDA DSKCNT;XXXXXXXX
  3. 50 AND #$9F;       10011111
  4. 60 SPD ORA #$00;   0XX00000
  5. 70 STA DSKCNT
  6. 80 BY JSR SYNC;FIND ANY SYNC MARK
  7. 200 LDY #$00
  8. 210 WAIT1 BVC WAIT1; V FLAG INDICATES GCR BYTE
  9. 220 CLV;RESET V FLAG
  10. 230 LDA DATA; INTERNAL I/O PORT
  11. 240 STA $0400,Y
  12. 250 INY
  13. 260 BNE WAIT1
  14. 270 LDY #$00
  15. 350 WAIT2 BVC WAIT2
  16. 360 CLV
  17. 370 LDA DATA
  18. 380 STA $0500,Y
  19. 390 INY
  20. 400 BNE WAIT2
  21. 410 LDA #$01; ERROR CODE
  22. 420 JMP OFF; ERROR HANDLING ROUTINE
  23. 520 RTS
  24. 590 .FILE RD TRK 6
  25.